﻿Public Class Pagina
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cId As Integer
    Private cURL As String
    Private cDescripcion As String
#End Region

#Region "Constructores"
    Public Sub New()
        cId = -1
        cURL = ""
        cDescripcion = ""
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pURL As String, ByVal pDescripcion As String)
        cId = pId
        cURL = pURL
        cDescripcion = pDescripcion
    End Sub
#End Region

#Region "Propiedades"
    Public Property Id()
        Get
            Return cId
        End Get
        Set(ByVal value)
            cId = value
        End Set
    End Property

    Public Property URL()
        Get
            Return cURL
        End Get
        Set(ByVal value)
            cURL = value
        End Set
    End Property

    Public Property Descripcion()
        Get
            Return cDescripcion
        End Get
        Set(ByVal value)
            cDescripcion = value
        End Set
    End Property
#End Region
End Class
